(FILECREATED "18-JUN-75 12:35:32" PHIST.;1 2255   

     changes to:  PHIST PKNT)


  (LISPXPRINT (QUOTE PHISTCOMS)
	      T T)
  (RPAQQ PHISTCOMS ((FNS INCR-PKNT DECR-PKNT RESET-PHIST START INIT-MAC)
	  PHIST PKNT))
(DEFINEQ

(INCR-PKNT
  [LAMBDA (B)
    [COND
      ((ZEROP PKNT)
	(SETTOPVAL (QUOTE PHIST)
		   (LIST B]
    (SETQ PKNT (ADD1 PKNT])

(DECR-PKNT
  [LAMBDA NIL
    (SETQ PKNT (SUB1 PKNT))
    NIL])

(RESET-PHIST
  [LAMBDA (B)
    (SETTOPVAL PHIST (LIST B])

(START
  [LAMBDA NIL
    (SETQ PKNT 0)
    (SETQ DO-THRESH INIT-DOTHRESH)
    (SETQ EX-THRESH INIT-EXTHRESH)
    (SETQ INTHRESH INIT-INTHRESH)
    (SETQ CANDS (COPY INIT-CANDS))
    (SETQ PAST (COPY INIT-PAST))
    (TERPRI)
    (PRIN1 "ENTERING MAIN LOOP NOW.")
    (TERPRI)
    (TERPRI)
    (TLOOP)
    (TERPRI)
    (PRIN1 "RE-")
    (START])

(INIT-MAC
  [LAMBDA NIL
    (DEFLIST [QUOTE ((GETB ((B P)
			    (GETP B P)))
		     (GETBQ ((B P)
			     (GETP (QUOTE B)
				   P)))
		     (SETBQ ((B P Q)
			     (PUT (QUOTE B)
				  (QUOTE P)
				  Q)))
		     (APPLYB (X (CONS (QUOTE APPLY*)
				      X)))
		     (CSINT ((X)
			     (CAAR X)))
		     (CSOTHERS ((X)
				(CDR X)))
		     (CSBEST ((X)
			      (CAR X)))
		     (CINT ((X)
			    (CAR X)))
		     (PINT ((X)
			    (CAR X)))
		     (P-OP ((X)
			    (CADR X)))
		     (P-B ((X)
			   (CADDR X)))
		     (P-P ((X)
			   (CADDDR X)))
		     (COP ((X)
			   (CADR X)))
		     (CB ((X)
			  (CADDR X)))
		     (CP ((X)
			  (CADDDR X)))
		     (CACT ((X)
			    (CDR X)))
		     [BPFS ((X)
			    (CDDR (CADDR (GETD X]
		     (IPRED ((X)
			     (CAR X)))
		     (IDEF ((X)
			    (CADR X)))
		     (IVAL ((X)
			    (CADDR X)))
		     (IFEATURES ((X)
				 (CDDR X)))
		     (IFEA ((X)
			    (CADR X)))
		     [TYPE (X (CAR (LAST X]
		     (ANY-OF (X (CONS (QUOTE OR)
				      X)))
		     (ANY1OF (X (RAND-MEMB X)))
		     (ALL-OF (X (CONS (QUOTE APPEND)
				      X)))
		     [INCR-PKNT ((X)
				 (AND (EQ (SETQ PKNT (ADD1 PKNT))
					  1)
				      (SETQ PHIST (LIST X]
		     (DECR-PKNT (NIL (NOT (SETQ PKNT (SUB1 PKNT]
	     (QUOTE MACRO])
)
  (RPAQQ PHIST (TRIVB))
  (RPAQQ PKNT 0)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (226 2188 (INCR-PKNT 238 . 366) (DECR-PKNT 370 . 435) (RESET-PHIST 439 . 498) (START 502 . 860) (INIT-MAC
864 . 2185)))))
STOP